#!/usr/local/bin/perl5

$file=pop @ARGV;
	open FILE,"<",$file;
	print $file."\n";
while($content=<FILE>)
{
	#print $content."\n";
	chomp $content;
	next if($content=~/(Fred)|(FRED)/);
	print $content."1\n" if($content=~/.*fred.*/i);
	print $content."2\n" if($content=~/.*\.+.*/);
	print $content."3\n" if($content=~/^[A-Z].*/);
	print $content."4\n" if($content=~/.*(.)\1.*/);
	print $content."5\n" if($content=~/.*wilma.*fred.*/);
}